home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.visit < prev    next >
Encoding:
Text File  |  2000-04-19  |  1.2 KB  |  52 lines
  1. G4C
  2. ; $VER: menu.visit Rev.001 © by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 100 60 "Site besuchen"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. ;=== Abbruch Button
  13. XButton 0 0 100 15 "Abbrechen [_X]"
  14.     GadFont xHelvetica.font 11 010
  15.     GadKey "x"
  16.     GuiQuit #This
  17.  
  18. XButton 0 15 100 15 "Lokale Site"
  19.     GadFont xHelvetica.font 11 000
  20.     GuiClose #This
  21.     lvuse HTMLEXT 1
  22.     Joinfile $*SITEDIR "default.htm" sf1
  23.     Joinfile $*SITEDIR "default.html" sf2
  24.     Joinfile $*SITEDIR "index.htm" sf3
  25.     Joinfile $*SITEDIR "index.html" sf4
  26.     ifexists file $sf1
  27.         cli 'rx $*BROWSER OPENNEW $sf1'
  28.     elseifexists file $sf2
  29.         cli 'rx $*BROWSER OPENNEW $sf2'
  30.     elseifexists file $sf3
  31.         cli 'rx $*BROWSER OPENNEW $sf13'
  32.     elseifexists file $sf4
  33.         cli 'rx $*BROWSER OPENNEW $sf4'
  34.     endif
  35.     GuiQuit #This
  36.  
  37. XButton 0 30 100 15 "Work Site"
  38.     GadFont xHelvetica.font 11 000
  39.     GuiClose #This
  40.     lvuse HTMLEXT 1
  41.     EXTRACT %SiteURLWRK CLEAN urlwrk
  42.     cli 'rx $*BROWSER OPENURL $urlwrk'
  43.     GuiQuit #This
  44.  
  45. XButton 0 45 100 15 "Online Site"
  46.     GadFont xHelvetica.font 11 000
  47.     GuiClose #This
  48.     lvuse HTMLEXT 1
  49.     EXTRACT %SiteURLOL CLEAN urlol
  50.     cli 'rx $*BROWSER OPENURL $urlol'
  51.     GuiQuit #This
  52.